home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / LGP250S1.ZIP / src / libgplus.5 / libgplus / vms / genclass.com < prev    next >
Text File  |  1992-05-29  |  2KB  |  61 lines
  1. $ v='f$verify(0)
  2. $! COMMAND FILE TO GENERATE CLASSES
  3. $! ARGUMENTS ARE THE SAME AS IN THE UNIX CASE
  4. $! @GENCLASS TYPE MODE FILE
  5. $! OR
  6. $! @GENCLASS -2 TYPE1 MODE1 TYPE2 MODE2 FILE
  7. $NMODES=1
  8. $IF P1.EQS."-2" THEN GOTO TWOMODE
  9. $TYPE1=P1
  10. $MODE1=P2
  11. $TYPE2=""
  12. $MODE2="VAL"
  13. $FILE=P3
  14. $OUTFILE=f$extract(0,1,TYPE1)+FILE
  15. $IF ((MODE1.EQS."REF").OR.(MODE1.EQS."VAL")) THEN GOTO PROCESS
  16. $GOTO ERREXIT
  17. $TWOMODE:
  18. $NMODES=2
  19. $TYPE1=P2
  20. $MODE1=P3
  21. $TYPE2=P4
  22. $MODE2=P5
  23. $FILE=P6
  24. $!OUTFILE=f$extract(0,1,TYPE1)+f$extract(0,1,TYPE2)+FILE
  25. $OUTFILE=f$extract(0,1,TYPE1)+FILE
  26. $IF ((MODE1.EQS."REF").OR.(MODE1.EQS."VAL")) THEN GOTO PROCESS1
  27. $GOTO ERREXIT
  28. $PROCESS1:
  29. $IF ((MODE2.EQS."REF").OR.(MODE2.EQS."VAL")) THEN GOTO PROCESS
  30. $!
  31. $PROCESS:
  32. $IF F$SEARCH("GNU_GXX_INCLUDE:[GEN]''FILE'.CCP").NES."" THEN -
  33.      COPY GNU_GXX_INCLUDE:[GEN]'FILE'.CCP 'OUTFILE'.CC
  34. $IF F$SEARCH("GNU_GXX_INCLUDE:[GEN]''FILE'.HP").NES."" THEN -
  35.      COPY GNU_GXX_INCLUDE:[GEN]'FILE'.HP 'OUTFILE'.H
  36. $OPEN OFILE$ RPLC.COM/WRITE
  37. $REPLACE:==EDIT/TPU/NODISPLAY/NOSECTION/COMMAND=GNU_CC:[000000]GENCLASS.TPU
  38. $RPC1=" "
  39. $IF MODE1.EQS."REF" THEN RPC1=" & "
  40. $RPC2=" "
  41. $IF MODE2.EQS."REF" THEN RPC2=" & "
  42. $write ofile$ "$ REPLACE:=''REPLACE'"
  43. $WRITE OFILE$ "$ REPLACE ''OUTFILE'.*"
  44. $WRITE OFILE$ TYPE1
  45. $WRITE OFILE$ TYPE1+RPC1
  46. $WRITE OFILE$ TYPE2
  47. $WRITE OFILE$ TYPE2+RPC2
  48. $DOIT:
  49. $CLOSE OFILE$
  50. $@RPLC
  51. $del rplc.com;/nolog
  52. $PUR 'OUTFILE'.*/NOLOG
  53. $if v then set verify
  54. $EXIT
  55. $ERREXIT:
  56. $WRITE SYS$OUTPUT "Bad arguments given to genclass."
  57. $write sys$output "Syntax is: @genclass type mode file"
  58. $ write sys$output "or @genclass -2 type1 mode1 type2 mode2 file"
  59. $if v then set verify
  60. $exit
  61.